{$CLEO .cs}
:Teleport_1
03A4: name_thread 'ANGELABELGTA'

:ANGELABELGTA_2
0A40: 1@ = create_entrance_marker_at -1976.07 2195.05 8.36731 color 3
0A40: 2@ = create_entrance_marker_at -1976.07 2194.05 8.36731 color 3
wait 0 
if 
0256:   player $PLAYER_CHAR defined
jf @ANGELABELGTA_2 
if 
00FF:   actor $PLAYER_ACTOR sphere 0 in_sphere -1976.07 2195.05 8.36731 radius 1.0 1.0 1.0 on_foot 
jf @ANGELABELGTA_3 
016A: fade 0 time 1000 
0001: wait 1500 ms 
00A1: put_actor $PLAYER_ACTOR at -1976.07 2192.55 8.36731
0173: set_actor $PLAYER_ACTOR Z_angle_to 180.0
016A: fade 1 time 2500 
0001: wait 500 ms
jump @ANGELABELGTA_2 

:ANGELABELGTA_3
if 
00FF:   actor $PLAYER_ACTOR sphere 0 in_sphere -1976.07 2194.05 8.36731 radius 1.0 1.0 1.0 on_foot 
jf @ANGELABELGTA_2 
016A: fade 0 time 1000 
0001: wait 1500 ms 
00A1: put_actor $PLAYER_ACTOR at -1976.07 2196.55 8.36731
0173: set_actor $PLAYER_ACTOR Z_angle_to 0.0
016A: fade 1 time 2500 
0001: wait 500 ms
jump @ANGELABELGTA_3